; Instrument autorevert-tests

diff --git a/test/lisp/autorevert-tests.el b/test/lisp/autorevert-tests.el
index af9edac1bea6679a1286dda8ff8dc8aedf79de2d..0cc5b9c4e9dc94fd692aa12dc7300de390eb93fc 100644 (file)
--- a/test/lisp/autorevert-tests.el
+++ b/test/lisp/autorevert-tests.el
@@ -148,7 +148,9 @@ This expects `auto-revert--messages' to be bound by
        (skip-unless (auto-revert--test-enabled-remote))
        (tramp-cleanup-connection
        (tramp-dissect-file-name temporary-file-directory) nil 'keep-password)
-       (funcall (ert-test-body ert-test)))))
+       (condition-case err
+           (funcall (ert-test-body ert-test))
+         (error (message "%s" err) (signal car err cdr err))))))
 
 (ert-deftest auto-revert-test00-auto-revert-mode ()
   "Check autorevert for a file."